function x = soltrinf(A,b)

	if det(A) != 0
		N = rows(A);
		
		for i = [1:N]
			s = 0;
			if i != 1
				for j = [1:i-1]            
					s = s + A(i,j)*x(j);        
				endfor
			endif            
			x(i) = (b(i)-s) / A(i,i);
		endfor
		
	else
		fprintf('ERROR, la matriz ingresada es singular!!, pruebe con otra\n')
    endif
	
endfunction
